home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / trunc.zip / TEST.PRG < prev    next >
Text File  |  1993-04-10  |  237b  |  14 lines
  1. PROC TEST
  2.     LOCAL x
  3.  
  4.     SetColor("W+/B")
  5.     SetPos(24,0)
  6.     WHILE .T.
  7.         ?
  8.         ACCEPT "Enter number to truncate: " TO x
  9.         IF Empty(x) ; EXIT ; END
  10.         x := Val(x)
  11.         ? "Int", Int(x), "Floor", Floor(x), "Ceiling", Ceiling(x)
  12.     END
  13. RETURN
  14.